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4.0-7 6 1 
: CRM MS.SRCJRM3CLOSE. B32;1 mae 


ne 
Soy 
*™ 


MODULE RM3CLOSE (LANGUAGE BLISS 32) ’ 
we = 'v04-000' 
BEGIN 


LEAR EERE ERE ERA EEA RERAAAAEEREEREE AEE 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sore 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


* 
® 
* 
* 
a 
* 
* 
' * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. e 
* 
'* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. * 
4 * 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
« 
[adeebeebuncobensnnghedenenienensedseentereenssnbesnsbennetinseneensonsennets 
i++ 
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FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
i ABSTRACT: 
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INDEXED SPECIFIC CODE FOR $CLOSE 
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i 
i 
: 
ENVIRONMENT : 
i 
i 
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Be Be Be Ge Be Se Ge Se Se Se Se ee Se Ge Ge Se Ge Be Be Be Se Se Se Be Se Se Se Oe Oe Oe Oe Os Os Se Be Se Se Se Oe Se Bs Ss Se Se Se Se Se Se Se Se HSH Se Se Se Se we 
ed dd dd od I I IOOOO 
- 
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PADD BB BE EEE BE BAMA NIIP POPNPONINONONUDY 2 St OO se 


004 VAX/VMS OPERATING SYSTEM 
004 ine 
va 
Gods AUTHOR: Wendy Koenig CREATION DATE: 11-APR-78 13:39 
0047 1! 
beo MODIFIED BY: 

050 : v03-004 RCNOORY Maria del C. Nasr 15-Mar-1983 
0081 More Linkages reorganization 
0088 : v03-003 MCNO002 Maria del C. Nasr 24-F eb-1983 
ope } Reorganize Linkages. 
bogs : v03-002 RCNOOOT Maria del C. Nasr 08-Nov-1982 
05 ; Return any index Sener leters if file ee ter block 


15 
RM3CLOSE Ib-8¢ -1984 01:38:3 VAX-11 Bliss-32 V4.0-74 Page 2) 
yOu-000 1 ~8ep-19 4 04:38: DISKSVMSMASTER: CRMS.SRC RM3CLOSE.B32:1° aj | 
; 58 0 7; 3 1/0 since now the prologue and all descriptors are 
; D4 0035 } processed during cheats with BIO set. . 
s 661 0061 1! v03-001 KBT0157 Keith B. Thompson 21-Aug-1982 
: 66 O9es ! Reorganize psects 
; 6 064 1! v02-005 CDS0002 C D Saether 06-Aug-1981 
: o? Boe? : Change Linkage to only use ifab and impure area. 
Dae 008? ze v02-004 CDS0001 C D Saether 16-Jul-1981 
$ re Boek : Do not deallocate nrp on indirect close. 
: $3 6070 1!  V02-099 REFORMAT Ken Henderson 29-Jul-1980 
; 71 0071 1! The code was reformatted. | 
SE Bo 78 7% 
Sei, 0073 1 | REVISION HISTORY: | 
; £6 0074 1! 
Be a 0075 1! wendy Koenig, 24-OCT-78 14:01 
: 76 Be08 7 7 X0002 - make changes caused by sharing conventions 
; #677 0077 1: | 
: 78 0078 1 !xnxeee 
Wes. 0079 1 
; 80 0080 1 LIBRARY 'RMSLIB:RMS'; 
3; «88 0081 1 | 
; 82 Bobs 1 REQUIRE ‘RMSSRC:RMSIDXDEF'; 
¢ 85 0147 1 
3 84 0148 1! 
; 68 0149 1! define default psects for code 
;s 86 0150 1! 
ca ae 0151 1 
; 8 8136 1 PSECT 
; 89 015 1 CODE = RMSRMS3(PSECT_ATIR), 
; 0154 1 PLIT = RMSRMS3(PSECT_ATTR); | 
s 91 0155 1 
5 F 3136 1! 
Bh. 157 1 ! Linkages 
; 96 0158 1! 
; 0159 1 | 
; 0160 1 LINKAGE 
3; «69V 0161 1 L_LINK_7_10_11, 
: 98 O16¢ 1 LIRETSEC3 | 
; 699 0163 1 
: 100 0164 1! ; 
s 101 3192 1 ! External Routines 
: 102 166 1! 
3; 6103 B1ef 1 
3; 104 168 1 EXTERNAL ROUTINE 
s 105 0169 1 RMSRETBLK : RLSRETSPC; 
3 106 0170 1 


<2 | 


| 


F 15 
16-Sep-1984 01:38:3 VAX-11 Bliss-32 V4.0-74 Page 3) 
18-808-13b2 04: 38:7 PEK SUMGHASTERSCUME SRCTRMSCLOSE 832047 (2) | 
GLOBAL ROUTINE RMSCLOSE3 : RLSLINK_7_10_11 = 
lo4 


' 
FUNCTIONAL DESCRIPTION: 


If this is the Last accessor of the file, deallocate all of the index 
descriptors ( off the IFAB) and zero the pointer. 


| 

CALLING SEQUENCE: | 

BSBW RMSCLOSE3 

entered via branch from RMS$CLOSE and will RSB back to CLSDLT 

INPUT PARAMETERS: | 
NONE 


IMPLICIT INPUTS: 

R10 -=- IFAB address 

R11 == IMPURE AREA address 
OUTPUT PARAMETERS: 

NONE 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
usual RMS status codes, especially SUC 


| 
SIDE EFFECTS: 
if 


i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
they existed, the index descriptors will be deallocated 
le 


eeeeeeenee right now there is no way of telling if this is the last user 
eeeeeeeeee has to be taken care of when files are done if this is the 
last accessor of the file, deallocate all of the index descriptors ( off 
the IFAB) and zero the pointer. eererreee 


! 

BEGIN 

EXTERNAL REGISTER 
~I1FAB . 
R_ IMPURE ; 


LOCAL 
PTR : REF BBLOCK, 
NEXT 
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NOUS UR @ OODNAUE WIN 0 OONOA UE WIN $0 OD NOU EWN | CO ODNOAUMUES WN OOONOUS wn 


! Return on indirect close. 


PIPOIPOPOPINPIPIPIPOPOPOPIPIPIPOPURINPOPYINIPINYPININIDNY 3 8 tt tt 


HY a TF ABCIFOSY_PPF IMAGED 
RETURN RMSSUC(); 
PTR = ,IFABCIFBSL_IDX_PTRI; 


Habababababadatadad Datadadabadababababadabetotabat Dat atabatahabatat tababababababubahababababababababababaiabad 
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PWR —OOOBNOU EWN 0 OBNOAUSWN " O OONO UE WIN (OOOO WIN (OOD ONOAUE Ww O0O@ 
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ror 
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RA PCL OSE 1$-$¢ Bho TSbnits §— DTRKSUMGHASTERSCHMS  SRCSRMBCLOSE.B3203°° ca} | 


: 165 § 
; 166 WHILE .PTR NEQ 0 
; 16 0 DO 
: 169 “Hi PTRCIDX$L_IDXFLI 
s 170 5 RMSRETBLK ( 6° .IFAB, .PTR ); | 
: 171 4 PTR = .NEXT; | 
: \7¢ s END; | 
: 17 $ il 
: 174 IFABCIFBSL_IDX_PTRI] = 0; | Il 
: 175 0238 RETURN RMSSUC(S | Il 
: 176 0 9 Il 
: 40 1 END; | | 
| Il 
TITLE RM3CLOSE | I! 
“IDENT \V04-000\ | t 
.EXTRN RMSRETBLK w 
-PSECT RMSRMS3,NOWRT, GBL, PIC,2 | 4 
007C 8F BB 00000 RMSCLOSE3:: RI 
PUSHR #*M<R2,R3,R4,R5,R6> : 0171 S 
18 04 AA 02 £0 00004 BBS (IFAB), 3$ : 0223 
54 OOAC CA DO 00009 MOVL 72(1FAB), PTR > 0227 
10 13 OOOOE 1$: BEQL $ 3 0229 
56 64 00 90019 MOVL (PTR), NEXT : 0232 
53 5A 00 0001 MOVL IFAB, R3 : 023 
52 D4 00016 CLRL R : 
00006 30 00018 BSBW  RMSRETBLK : 
54 56 DO 0001B MOVL NEXT, PTR 7 0234 
EE 11 OOO1E BRB 1$ : 0229 
OOAC CA D4 90020 2s: CLRL 172(1 FAB) : 0237 
50 01 DO 00024 3$: MOVL ; ; 0238 
007c 8F BA 900¢7 POPR #*M<R2,R3,R4,R5,R6> : 0240 
05 00028 RSB ; 
3; Routine Size: 44 bytes, Routine Base: RM$RMS3 + 0000 
: 178 0241 1 
: 179 O24e 1 END 
: 180 Bs¢ 1 
: 181 44 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
RMSRMS3 44 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
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li 
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Library Statistics 


Peg oe et ons 2 At rr gk pee ee =) eile Syaholg sec~wsece Pages Processing | 
: File Total Loaded Percent Mapped Time 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RM3CLOSE/OBJ=OBJ$:RM3CLOSE MSRC$:RM3CLOSE/UPDATE=(ENHS$:RM3CLOSE) 


44 code + 0 data bytes 
00 


3; Size: 

; Run "tess :02. 
: Elapsed Time: 00:12. 
3 Lines/CPU Min: 522 

5 yonenee/ a wral 10264 
; pme | Used: 32 pages 
3 a 


; Compilation Complete 


~-$255$DUA28: CRMS .OBJIRMS.L32;1 3109 12 0 154 00:00.4 
| 
| 


